﻿Public Class BillOfLadingImpoBE

    'Pestaña general

    Dim sTipo As String ' PK

    Dim iKVJE As Integer ' PK
    Dim sdesKVJE As String  'PK
    Dim iKBLM As Integer
    Dim Iid As Integer

    Dim sTOPE As String
    Dim sNume As String
    Dim sTibl As String
    Dim sLemi As String
    Dim sFemi As String
    Dim sEmba As String
    Dim sCsne As String
    Dim sNoti As String
    Dim sNot2 As String
    Dim sFwdr As String
    Dim sAgad As String

    Dim sAgad_Desc As String

    Dim sLine As String
    Dim sPtoo As String
    Dim sPtoe As String
    Dim sDfin As String
    Dim sDfi2 As String
    Dim sDpte As String
    Dim sDpto As String
    Dim sDptd As String
    Dim sDdfi As String
    Dim sDdf2 As String
    Dim sFomt As String
    Dim sOBSE As String
    Dim dTfpf As Double
    Dim dTfpt As Double
    Dim dTfcf As Double
    Dim sTfct As Double
    Dim sCFLE As String
    Dim iUnid As Integer
    Dim iCsue As Integer
    Dim iPkgs As Integer
    Dim dTafle As Double
    Dim dTathc As Double
    Dim iESTA As Integer
    Dim sAgge As String
    Dim sServ As String
    Dim iNorig As Integer
    Dim sDtot As String
    Dim sLpfp As String
    Dim sLpfc As String
    Dim sTalm As String
    Dim sAgdo As String
    Dim sTdes As String
    Dim sCond As String
    Dim sOpeLog As String
    Dim sCUSU As String
    Dim dTfcfInt As Double
    Dim dTfctInt As Double
    Dim sPtod As String
    Dim sUcre As String      'Código del usuario responsable de la creación del registro
    Dim dFcre As Date        'Fecha de creación
    Dim sUmod As String      'Código del usuario responsable de la modificación del registro
    Dim dFmod As Date        'Fecha de modificación
    'otros
    Dim sCondicion As String
    Dim sNumero As String
    Dim sTg1_Desc As String ' Desc tipo BL (Bli_Tibl)
    Dim sAgm_Desc As String ' agente documentario
    Dim sAgg_Line As String  ' desc de la linea 
    Dim sSer_Desc As String ' desc servicio
    Dim sdesc_cod_emb As String
    Dim sdesc_cod_cons As String
    Dim sdesc_cod_not As String
    Dim sEnt_ObsEmb As String
    Dim sEnt_ObsCons As String
    Dim sEnt_ObsDoc As String
    Dim sBli_Flag As String

    Dim sCodPto_Desc1 As String
    Dim sCodPto_Desc2 As String

    Dim sPto_Desc1 As String
    Dim sPto_Desc2 As String


    Dim iCantContenedores As Integer
    Dim sFecRevision As String
    Dim sEstadoDes As String
    ' Mercaderia


    Dim iBef_Item As Integer
    Dim sBef_Desc As String
    Dim sBem_Prod As String
    Dim sBem_TipoBulto As String
    Dim sBem_Cant As String
    Dim sBem_ParAran As String
    Dim sBem_PesoBruto As String
    Dim sBem_Total As String
    Dim sBem_Volumen As String
    Dim sBem_MarcaNum As String
    Dim sBem_Est As String


    'Fletes' tabla BlsFletes
    '----------------------------------------------------------------------------------
    'Dim iKVJE As Integer ' PK
    'Dim sdesKVJE As String  'PK 

    Dim iBef_Kfle As Integer     'Correlativo de flete por BL - PK
    Dim sBef_Tari As String      'Código de tarifa
    Dim sBef_Umed As String      'Unidad de medida
    Dim dBef_Cant As Double      'Cantidad
    Dim dBef_Tfle As Double      'Monto de flete
    Dim dBef_Tmon As Double      'Total monto del flete
    Dim sBef_Tpag As String      'Total monto del flete (aduana)
    Dim sBef_Mone As String      'Código de moneda
    Dim sBef_Dfle As String      'Descripción del flete
    Dim sBef_Lpag As String      'Código de lugar de pago

    Dim sBef_PC As String

    'Contenedor  - tabla 
    '---------------------------------------------------------
    Dim sBec_Pref As String
    Dim sBec_nume As String
    Dim sBec_Line As String
    Dim sBec_Tipo As String
    Dim iBec_Pies As Integer
    Dim sBec_Dpto As String
    Dim dBec_Volu As Double
    Dim dBec_Peso As Double
    Dim dBec_Tara As Double
    Dim sBec_Cond As String
    Dim sBec_Temp As String
    Dim sBec_Imo As String
    Dim sBec_Unno As String
    Dim sBec_Talm As String
    Dim sBec_Esta As String
    Dim sBec_EstaTrans As String
    Dim sBec_Pnet As String

    Dim sBec_LineIni As String
    Dim sBec_LineStock As String
    Dim sBec_TipoPaq As String
    Dim iBec_Cantidad As Integer
    Dim sBec_Unid As String
    Dim dBec_PesoBruto As Double
    Dim dBec_PesoNeto As Double
    Dim sBec_Carrier As String
    Dim sBec_Shipper As String
    Dim sBec_Otros As String
    Dim sBec_Obs As String

    'cierre de BL 
    Dim sBli_Fvb As String

    Public Sub New()

    End Sub

#Region "TAB1: Pag.Principal"

    Public Property CodPto_Desc1() As String
        Get
            Return sCodPto_Desc1
        End Get
        Set(ByVal value As String)
            sCodPto_Desc1 = value
        End Set
    End Property

    Public Property CodPto_Desc2() As String
        Get
            Return sCodPto_Desc2
        End Get
        Set(ByVal value As String)
            sCodPto_Desc2 = value
        End Set
    End Property


    Public Property Pto_Desc1() As String
        Get
            Return sPto_Desc1
        End Get
        Set(ByVal value As String)
            sPto_Desc1 = value
        End Set
    End Property


    Public Property Pto_Desc2() As String
        Get
            Return sPto_Desc2
        End Get
        Set(ByVal value As String)
            sPto_Desc2 = value
        End Set
    End Property


    Public Property Bli_Flag() As String
        Get
            Return sBli_Flag
        End Get
        Set(ByVal value As String)
            sBli_Flag = value
        End Set
    End Property

    Public Property Ent_ObsEmb() As String
        Get
            Return sEnt_ObsEmb
        End Get
        Set(ByVal value As String)
            sEnt_ObsEmb = value
        End Set
    End Property

    Public Property Ent_ObsCons() As String
        Get
            Return sEnt_ObsCons
        End Get
        Set(ByVal value As String)
            sEnt_ObsCons = value
        End Set
    End Property

    Public Property Ent_ObsDoc() As String
        Get
            Return sEnt_ObsDoc
        End Get
        Set(ByVal value As String)
            sEnt_ObsDoc = value
        End Set
    End Property


    Public Property Tipo() As String
        Get
            Return sTipo
        End Get
        Set(ByVal value As String)
            sTipo = value
        End Set
    End Property



    Public Property Condicion() As String
        Get
            Return sCondicion
        End Get
        Set(ByVal value As String)
            sCondicion = value
        End Set
    End Property

    Public Property Numero() As String
        Get
            Return sNumero
        End Get
        Set(ByVal value As String)
            sNumero = value
        End Set
    End Property

    Public Property desKVJE() As String
        Get
            Return sdesKVJE
        End Get
        Set(ByVal value As String)
            sdesKVJE = value
        End Set
    End Property

    Public Property KVJE() As Integer
        Get
            Return iKVJE
        End Get
        Set(ByVal value As Integer)
            iKVJE = value
        End Set
    End Property

    Public Property KBLM() As Integer
        Get
            Return iKBLM
        End Get
        Set(ByVal value As Integer)
            iKBLM = value
        End Set
    End Property

    Public Property ID() As Integer
        Get
            Return Iid
        End Get
        Set(ByVal value As Integer)
            Iid = value
        End Set
    End Property

    Public Property TOPE() As String
        Get
            Return sTOPE
        End Get
        Set(ByVal value As String)
            sTOPE = value
        End Set
    End Property

    Public Property Nume() As String
        Get
            Return sNume
        End Get
        Set(ByVal value As String)
            sNume = value
        End Set
    End Property

    Public Property Tibl() As String
        Get
            Return sTibl
        End Get
        Set(ByVal value As String)
            sTibl = value
        End Set
    End Property

    Public Property Lemi() As String
        Get
            Return sLemi
        End Get
        Set(ByVal value As String)
            sLemi = value
        End Set
    End Property

    Public Property Femi() As String
        Get
            Return sFemi
        End Get
        Set(ByVal value As String)
            sFemi = value
        End Set
    End Property

    Public Property Emba() As String
        Get
            Return sEmba
        End Get
        Set(ByVal value As String)
            sEmba = value
        End Set
    End Property

    Public Property Csne() As String
        Get
            Return sCsne
        End Get
        Set(ByVal value As String)
            sCsne = value
        End Set
    End Property

    Public Property Noti() As String
        Get
            Return sNoti
        End Get
        Set(ByVal value As String)
            sNoti = value
        End Set
    End Property

    Public Property Not2() As String
        Get
            Return sNot2
        End Get
        Set(ByVal value As String)
            sNot2 = value
        End Set
    End Property

    Public Property Fwdr() As String
        Get
            Return sFwdr
        End Get
        Set(ByVal value As String)
            sFwdr = value
        End Set
    End Property

    Public Property Agad() As String
        Get
            Return sAgad
        End Get
        Set(ByVal value As String)
            sAgad = value
        End Set
    End Property

    Public Property Agad_Desc() As String
        Get
            Return sAgad_Desc
        End Get
        Set(ByVal value As String)
            sAgad_Desc = value
        End Set
    End Property

    Public Property Line() As String
        Get
            Return sLine
        End Get
        Set(ByVal value As String)
            sLine = value
        End Set
    End Property

    Public Property Ptoo() As String
        Get
            Return sPtoo
        End Get
        Set(ByVal value As String)
            sPtoo = value
        End Set
    End Property

    Public Property Ptoe() As String
        Get
            Return sPtoe
        End Get
        Set(ByVal value As String)
            sPtoe = value
        End Set
    End Property

    Public Property Dfin() As String
        Get
            Return sDfin
        End Get
        Set(ByVal value As String)
            sDfin = value
        End Set
    End Property

    Public Property Dfi2() As String
        Get
            Return sDfi2
        End Get
        Set(ByVal value As String)
            sDfi2 = value
        End Set
    End Property

    Public Property Dpte() As String
        Get
            Return sDpte
        End Get
        Set(ByVal value As String)
            sDpte = value
        End Set
    End Property

    Public Property Dpto() As String
        Get
            Return sDpto
        End Get
        Set(ByVal value As String)
            sDpto = value
        End Set
    End Property


    Public Property Dptd() As String
        Get
            Return sDptd
        End Get
        Set(ByVal value As String)
            sDptd = value
        End Set
    End Property


    Public Property Ddfi() As String
        Get
            Return sDdfi
        End Get
        Set(ByVal value As String)
            sDdfi = value
        End Set
    End Property


    Public Property Ddf2() As String
        Get
            Return sDdf2
        End Get
        Set(ByVal value As String)
            sDdf2 = value
        End Set
    End Property


    Public Property Fomt() As String
        Get
            Return sFomt
        End Get
        Set(ByVal value As String)
            sFomt = value
        End Set
    End Property


    Public Property OBSE() As String
        Get
            Return sOBSE
        End Get
        Set(ByVal value As String)
            sOBSE = value
        End Set
    End Property

    Public Property Tfpf() As Double
        Get
            Return dTfpf
        End Get
        Set(ByVal value As Double)
            dTfpf = value
        End Set
    End Property


    Public Property Tfpt() As Double
        Get
            Return dTfpt
        End Get
        Set(ByVal value As Double)
            dTfpt = value
        End Set
    End Property


    Public Property Tfcf() As Double
        Get
            Return dTfcf
        End Get
        Set(ByVal value As Double)
            dTfcf = value
        End Set
    End Property


    Public Property Tfct() As String
        Get
            Return sTfct
        End Get
        Set(ByVal value As String)
            sTfct = value
        End Set
    End Property


    Public Property CFLE() As String
        Get
            Return sCFLE
        End Get
        Set(ByVal value As String)
            sCFLE = value
        End Set
    End Property


    Public Property Unid() As Integer
        Get
            Return iUnid
        End Get
        Set(ByVal value As Integer)
            iUnid = value
        End Set
    End Property


    Public Property Csue() As Integer
        Get
            Return iCsue
        End Get
        Set(ByVal value As Integer)
            iCsue = value
        End Set
    End Property

    Public Property Pkgs() As Integer
        Get
            Return iPkgs
        End Get
        Set(ByVal value As Integer)
            iPkgs = value
        End Set
    End Property

    Public Property Tafle() As String
        Get
            Return dTafle
        End Get
        Set(ByVal value As String)
            dTafle = value
        End Set
    End Property

    Public Property Tathc() As String
        Get
            Return dTathc
        End Get
        Set(ByVal value As String)
            dTathc = value
        End Set
    End Property

    Public Property ESTA() As Integer
        Get
            Return iESTA
        End Get
        Set(ByVal value As Integer)
            iESTA = value
        End Set
    End Property

    Public Property Agge() As String
        Get
            Return sAgge
        End Get
        Set(ByVal value As String)
            sAgge = value
        End Set
    End Property

    Public Property Serv() As String
        Get
            Return sServ
        End Get
        Set(ByVal value As String)
            sServ = value
        End Set
    End Property

    Public Property Norig() As Integer
        Get
            Return iNorig
        End Get
        Set(ByVal value As Integer)
            iNorig = value
        End Set
    End Property

    Public Property Dtot() As String
        Get
            Return sDtot
        End Get
        Set(ByVal value As String)
            sDtot = value
        End Set
    End Property

    Public Property Lpfp() As String
        Get
            Return sLpfp
        End Get
        Set(ByVal value As String)
            sLpfp = value
        End Set
    End Property

    Public Property Lpfc() As String
        Get
            Return sLpfc
        End Get
        Set(ByVal value As String)
            sLpfc = value
        End Set
    End Property

    Public Property Talm() As String
        Get
            Return sTalm
        End Get
        Set(ByVal value As String)
            sTalm = value
        End Set
    End Property

    Public Property Agdo() As String
        Get
            Return sAgdo
        End Get
        Set(ByVal value As String)
            sAgdo = value
        End Set
    End Property

    Public Property Tdes() As String
        Get
            Return sTdes
        End Get
        Set(ByVal value As String)
            sTdes = value
        End Set
    End Property

    Public Property Cond() As String
        Get
            Return sCond
        End Get
        Set(ByVal value As String)
            sCond = value
        End Set
    End Property

    Public Property OpeLog() As String
        Get
            Return sOpeLog
        End Get
        Set(ByVal value As String)
            sOpeLog = value
        End Set
    End Property

    Public Property CUSU() As String
        Get
            Return sCUSU
        End Get
        Set(ByVal value As String)
            sCUSU = value
        End Set
    End Property

    Public Property TfcfInt() As Double
        Get
            Return dTfcfInt
        End Get
        Set(ByVal value As Double)
            dTfcfInt = value
        End Set
    End Property

    Public Property TfctInt() As Double
        Get
            Return dTfctInt
        End Get
        Set(ByVal value As Double)
            dTfctInt = value
        End Set
    End Property

    Public Property Ptod() As String
        Get
            Return sPtod
        End Get
        Set(ByVal value As String)
            sPtod = value
        End Set
    End Property

    Public Property Ucre() As String
        Get
            Return sUcre
        End Get
        Set(ByVal value As String)
            sUcre = value
        End Set
    End Property

    Public Property Fcre() As Date
        Get
            Return dFcre
        End Get
        Set(ByVal value As Date)
            dFcre = value
        End Set
    End Property

    Public Property Umod() As String
        Get
            Return sUmod
        End Get
        Set(ByVal value As String)
            sUmod = value
        End Set
    End Property

    Public Property Fmod() As Date
        Get
            Return dFmod
        End Get
        Set(ByVal value As Date)
            dFmod = value
        End Set
    End Property



#End Region

#Region "TAB3: Flete"


    Public Property Bef_Kfle() As Integer
        Get
            Return iBef_Kfle
        End Get
        Set(ByVal value As Integer)
            iBef_Kfle = value
        End Set
    End Property

    Public Property Bef_Tari() As String
        Get
            Return sBef_Tari
        End Get
        Set(ByVal value As String)
            sBef_Tari = value
        End Set
    End Property

    Public Property Bef_Umed() As String
        Get
            Return sBef_Umed
        End Get
        Set(ByVal value As String)
            sBef_Umed = value
        End Set
    End Property

    Public Property Bef_Cant() As Double
        Get
            Return dBef_Cant
        End Get
        Set(ByVal value As Double)
            dBef_Cant = value
        End Set
    End Property

    Public Property Bef_Tfle() As Double
        Get
            Return dBef_Tfle
        End Get
        Set(ByVal value As Double)
            dBef_Tfle = value
        End Set
    End Property

    Public Property Bef_Tmon() As Double
        Get
            Return dBef_Tmon
        End Get
        Set(ByVal value As Double)
            dBef_Tmon = value
        End Set
    End Property

    Public Property Bef_Tpag() As String
        Get
            Return sBef_Tpag
        End Get
        Set(ByVal value As String)
            sBef_Tpag = value
        End Set
    End Property

    Public Property Bef_Mone() As String
        Get
            Return sBef_Mone
        End Get
        Set(ByVal value As String)
            sBef_Mone = value
        End Set
    End Property

    Public Property Bef_Dfle() As String
        Get
            Return sBef_Dfle
        End Get
        Set(ByVal value As String)
            sBef_Dfle = value
        End Set
    End Property

    Public Property Bef_Lpag() As String
        Get
            Return sBef_Lpag
        End Get
        Set(ByVal value As String)
            sBef_Lpag = value
        End Set
    End Property


    Public Property Bef_PC() As String
        Get
            Return sBef_PC
        End Get
        Set(ByVal value As String)
            sBef_PC = value
        End Set
    End Property


#End Region

#Region "TAB4: Contenedor"


    Public Property Bec_Pref() As String
        Get
            Return sBec_Pref
        End Get
        Set(ByVal value As String)
            sBec_Pref = value
        End Set
    End Property

    Public Property Bec_nume() As String
        Get
            Return sBec_nume
        End Get
        Set(ByVal value As String)
            sBec_nume = value
        End Set
    End Property

    Public Property Bec_Tipo() As String
        Get
            Return sBec_Tipo
        End Get
        Set(ByVal value As String)
            sBec_Tipo = value
        End Set
    End Property

    Public Property Bec_Line() As String
        Get
            Return sBec_Line
        End Get
        Set(ByVal value As String)
            sBec_Line = value
        End Set
    End Property

    Public Property Bec_Pies() As Integer
        Get
            Return iBec_Pies
        End Get
        Set(ByVal value As Integer)
            iBec_Pies = value
        End Set
    End Property

    Public Property Bec_Dpto() As String
        Get
            Return sBec_Dpto
        End Get
        Set(ByVal value As String)
            sBec_Dpto = value
        End Set
    End Property

    Public Property Bec_Volu() As Double
        Get
            Return dBec_Volu
        End Get
        Set(ByVal value As Double)
            dBec_Volu = value
        End Set
    End Property

    Public Property Bec_Peso() As Double
        Get
            Return dBec_Peso
        End Get
        Set(ByVal value As Double)
            dBec_Peso = value
        End Set
    End Property

    Public Property Bec_Tara() As Double
        Get
            Return dBec_Tara
        End Get
        Set(ByVal value As Double)
            dBec_Tara = value
        End Set
    End Property

    Public Property Bec_Cond() As String
        Get
            Return sBec_Cond
        End Get
        Set(ByVal value As String)
            sBec_Cond = value
        End Set
    End Property

    Public Property Bec_Temp() As String
        Get
            Return sBec_Temp
        End Get
        Set(ByVal value As String)
            sBec_Temp = value
        End Set
    End Property

    Public Property Bec_Imo() As String
        Get
            Return sBec_Imo
        End Get
        Set(ByVal value As String)
            sBec_Imo = value
        End Set
    End Property

    Public Property Bec_Unno() As String
        Get
            Return sBec_Unno
        End Get
        Set(ByVal value As String)
            sBec_Unno = value
        End Set
    End Property

    Public Property Bec_Talm() As String
        Get
            Return sBec_Talm
        End Get
        Set(ByVal value As String)
            sBec_Talm = value
        End Set
    End Property

    Public Property Bec_Esta() As String
        Get
            Return sBec_Esta
        End Get
        Set(ByVal value As String)
            sBec_Esta = value
        End Set
    End Property

    Public Property Bec_Pnet() As String
        Get
            Return sBec_Pnet
        End Get
        Set(ByVal value As String)
            sBec_Pnet = value
        End Set
    End Property


    Public Property Bec_LineIni() As String
        Get
            Return sBec_LineIni
        End Get
        Set(ByVal value As String)
            sBec_LineIni = value
        End Set
    End Property

    Public Property Bec_LineStock() As String
        Get
            Return sBec_LineStock
        End Get
        Set(ByVal value As String)
            sBec_LineStock = value
        End Set
    End Property

    Public Property Bec_TipoPaq() As String
        Get
            Return sBec_TipoPaq
        End Get
        Set(ByVal value As String)
            sBec_TipoPaq = value
        End Set
    End Property

    Public Property Bec_Cantidad() As Integer
        Get
            Return iBec_Cantidad
        End Get
        Set(ByVal value As Integer)
            iBec_Cantidad = value
        End Set
    End Property

    Public Property Bec_Unid() As String
        Get
            Return sBec_Unid
        End Get
        Set(ByVal value As String)
            sBec_Unid = value
        End Set
    End Property

    Public Property Bec_PesoBruto() As Double
        Get
            Return dBec_PesoBruto
        End Get
        Set(ByVal value As Double)
            dBec_PesoBruto = value
        End Set
    End Property

    Public Property Bec_PesoNeto() As Double
        Get
            Return dBec_PesoNeto
        End Get
        Set(ByVal value As Double)
            dBec_PesoNeto = value
        End Set
    End Property

    Public Property Bec_Carrier() As String
        Get
            Return sBec_Carrier
        End Get
        Set(ByVal value As String)
            sBec_Carrier = value
        End Set
    End Property

    Public Property Bec_Shipper() As String
        Get
            Return sBec_Shipper
        End Get
        Set(ByVal value As String)
            sBec_Shipper = value
        End Set
    End Property

    Public Property Bec_Otros() As String
        Get
            Return sBec_Otros
        End Get
        Set(ByVal value As String)
            sBec_Otros = value
        End Set
    End Property

    Public Property Bec_Obs() As String
        Get
            Return sBec_Obs
        End Get
        Set(ByVal value As String)
            sBec_Obs = value
        End Set
    End Property

    Public Property Bec_EstaTrans() As String
        Get
            Return sBec_EstaTrans
        End Get
        Set(ByVal value As String)
            sBec_EstaTrans = value
        End Set
    End Property




#End Region

#Region "TAB4: Mercaderia"

    Public Property Bef_Item() As Integer
        Get
            Return iBef_Item
        End Get
        Set(ByVal value As Integer)
            iBef_Item = value
        End Set
    End Property

    Public Property Bef_Desc() As String
        Get
            Return sBef_Desc
        End Get
        Set(ByVal value As String)
            sBef_Desc = value
        End Set
    End Property

    Public Property Bem_Prod() As String
        Get
            Return sBem_Prod
        End Get
        Set(ByVal value As String)
            sBem_Prod = value
        End Set
    End Property

    Public Property Bem_TipoBulto() As String
        Get
            Return sBem_TipoBulto
        End Get
        Set(ByVal value As String)
            sBem_TipoBulto = value
        End Set
    End Property

    Public Property Bem_Cant() As String
        Get
            Return sBem_Cant
        End Get
        Set(ByVal value As String)
            sBem_Cant = value
        End Set
    End Property

    Public Property Bem_ParAran() As String
        Get
            Return sBem_ParAran
        End Get
        Set(ByVal value As String)
            sBem_ParAran = value
        End Set
    End Property

    Public Property Bem_PesoBruto() As String
        Get
            Return sBem_PesoBruto
        End Get
        Set(ByVal value As String)
            sBem_PesoBruto = value
        End Set
    End Property


    Public Property Bem_Total() As String
        Get
            Return sBem_Total
        End Get
        Set(ByVal value As String)
            sBem_Total = value
        End Set
    End Property

    Public Property Bem_Volumen() As String
        Get
            Return sBem_Volumen
        End Get
        Set(ByVal value As String)
            sBem_Volumen = value
        End Set
    End Property


    Public Property Bem_MarcaNum() As String
        Get
            Return sBem_MarcaNum
        End Get
        Set(ByVal value As String)
            sBem_MarcaNum = value
        End Set
    End Property


    Public Property Bem_Est() As String
        Get
            Return sBem_Est
        End Get
        Set(ByVal value As String)
            sBem_Est = value
        End Set
    End Property



#End Region

    Public Property Bli_Fvb() As String
        Get
            Return sBli_Fvb
        End Get
        Set(ByVal value As String)
            sBli_Fvb = value
        End Set
    End Property

    Public Property Tg1_Desc() As String
        Get
            Return sTg1_Desc
        End Get
        Set(ByVal value As String)
            sTg1_Desc = value
        End Set
    End Property


    Public Property Agm_Desc() As String
        Get
            Return sAgm_Desc
        End Get
        Set(ByVal value As String)
            sAgm_Desc = value
        End Set
    End Property

    Public Property Agg_Line() As String
        Get
            Return sAgg_Line
        End Get
        Set(ByVal value As String)
            sAgg_Line = value
        End Set
    End Property

    Public Property Ser_Desc() As String
        Get
            Return sSer_Desc
        End Get
        Set(ByVal value As String)
            sSer_Desc = value
        End Set
    End Property

    Public Property desc_cod_emb() As String
        Get
            Return sdesc_cod_emb
        End Get
        Set(ByVal value As String)
            sdesc_cod_emb = value
        End Set
    End Property

    Public Property desc_cod_cons() As String
        Get
            Return sdesc_cod_cons
        End Get
        Set(ByVal value As String)
            sdesc_cod_cons = value
        End Set
    End Property


    Public Property desc_cod_not() As String
        Get
            Return sdesc_cod_not
        End Get
        Set(ByVal value As String)
            sdesc_cod_not = value
        End Set
    End Property

    Public Property CantContenedores() As Integer
        Get
            Return iCantContenedores
        End Get
        Set(ByVal value As Integer)
            iCantContenedores = value
        End Set
    End Property

    Public Property FecRevision() As String
        Get
            Return sFecRevision
        End Get
        Set(ByVal value As String)
            sFecRevision = value
        End Set
    End Property



    Public Property EstadoDes() As String
        Get
            Return sEstadoDes
        End Get
        Set(ByVal value As String)
            sEstadoDes = value
        End Set
    End Property



End Class
